Sound procedure

  DECLARATION:  Sound(Freq : Word);

      PURPOSE:  Turns on the internal speaker

         UNIT:  CRT

      REMARKS:  Generates sound of the frequency in Hz specified by
                Freq out of the internal speaker.  The tone will
                continue until the NoSound command is issued.